Apple Reference & Presen…tion Library 4 (Reseller)/Apple Ref. & Pres. Lib.v4.0.iso/4-Demos/Apple Demos/Tutorials/Display Card 4•8⁄8•24 Training/Display Card 4•8_8•24 Training/card_33085.txt

Text File | 1990-03-19 | 9.6 KB | 434 lines

-- card: 33085 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 33383
-- name: qa 8
----- HyperTalk script -----
on opencard
  put name of this card into field "Tom's Field"
  hide cd fld "comment 8 true"
  hide cd fld "comment 8 false"
  hide cd fld "clicktocontinue"
  show cd btn "check my answers"
  put "" into memolist
end opencard




-- part 1 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=8 top=133 right=147 bottom=23
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: our Answers


-- part 2 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=31 top=133 right=147 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Your Answers


-- part 3 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=110 top=142 right=162 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: check 1
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 3
    put "" into cd fld "Your Answers"
    set the hilite of cd btn i to false
    set the hilite of me to true
    put word 2 of the short name of me into cd fld "Your answers"
  end repeat
  put "" into cd fld "Your Answers"
  set the hilite of cd btn 8 to false
  set the hilite of me to true
  put word 2 of the short name of me into cd fld "Your answers"
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=110 top=175 right=195 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: check 2
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 3
    put "" into cd fld "Your Answers"
    set the hilite of cd btn i to false
    set the hilite of me to true
    put word 2 of the short name of me into cd fld "Your answers"
  end repeat
  put "" into cd fld "Your Answers"
  set the hilite of cd btn 8 to false
  set the hilite of me to true
  put word 2 of the short name of me into cd fld "Your answers"
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=110 top=207 right=227 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: check 3
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 3
    put "" into cd fld "Your Answers"
    set the hilite of cd btn i to false
    set the hilite of me to true
    put word 2 of the short name of me into cd fld "Your answers"
  end repeat
  put "" into cd fld "Your Answers"
  set the hilite of cd btn 8 to false
  set the hilite of me to true
  put word 2 of the short name of me into cd fld "Your answers"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=126 top=312 right=339 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Check my answers
----- HyperTalk script -----
on mouseUp
  global memolist, testnumber, inProgress
  put "" into memolist
  set cursor to busy
  lock screen
  go card "test 7"
  put 1 into r
  repeat with r = 1 to 8
    go card ("qa" && r)
    if cd fld "Your answers" is "" then
      answer "You're not done, yet!" with "Ooops!"
      put true into tryAgain
      exit mouseup
    else
      put false into tryAgain
      if cd fld "Your answers" = cd fld "Our Answers" then
        put true into item r of memolist
      else
        put false into item r of memolist
      end if
      add 1 to r
    end if
  end repeat

  if tryagain = false then

    if the short name of this card is "qa 8" then
      put "5" into testNumber
      put 1 into r
      go card "qa 1"
      hide cd fld "instruction 3"
      set cursor to hand
    end if

    unlock screen with visual dissolve slow to black

    repeat with r = 1 to 8
      show cd fld "clicktocontinue"
      if item r of memoList is "true" then
        put ("comment" && r && "true") into theComment
      else
        put ("comment" && r && "false") into theComment
      end if
      show cd fld theComment
      wait until the mouseclick
      hide cd fld theComment
      hide cd fld "clicktocontinue"
      add 1 to r
      go card ("qa" && r)
    end repeat

  end if

  if memolist contains "False" then
    answer "Do you want to try again?" with "No" or "Yes"
    if it is "Yes" then
      show cd btn "Check my Answers"
      put "" into memolist
      put true into inProgress
      go card "qa 1"
    else
      ScoreReview
    end if
  else
    ScoreReview
  end if
end mouseUp




-- part 8 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=59 top=312 right=341 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 157
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: ClicktoContinue


-- part 9 (field)
-- low flags: 80
-- high flags: 2004
-- rect: left=80 top=6 right=95 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: comment 8 true


-- part 10 (field)
-- low flags: 80
-- high flags: 2004
-- rect: left=224 top=13 right=99 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: comment 8 false


-- part 11 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=457 top=317 right=342 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 18622 / 18622
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  answer "Click one of the sections." with "Help" or "OK"
  if it is "Help" then
    push card
    visual dissolve
    go card "howtoUse"
  else exit mouseUp
end mouseUp



-- part 12 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=51 top=311 right=340 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 157
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: ClicktoContinue


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=317 right=342 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 18611 / 18611
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
  visual effect scroll right
  go prev
end mouseUp



-- part 15 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=279 top=312 right=339 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Test Menu
----- HyperTalk script -----
on mouseUp
  visual dissolve
  go card "test 0"
end mouseUp



-- part 16 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=319 right=336 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tom's Field


-- part 17 (button)
-- low flags: 00
-- high flags: 2006
-- rect: left=110 top=239 right=259 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: check 4
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to 3
    put "" into cd fld "Your Answers"
    set the hilite of cd btn i to false
    set the hilite of me to true
    put word 2 of the short name of me into cd fld "Your answers"
  end repeat
  put "" into cd fld "Your Answers"
  set the hilite of cd btn 8 to false
  set the hilite of me to true
  put word 2 of the short name of me into cd fld "Your answers"
end mouseUp



-- part contents for background part 16
----- text -----
q&a 8

-- part contents for background part 4
----- text -----
Macintosh Display Card 4•8 and 8•24

-- part contents for background part 5
----- text -----
Training Evaluation

-- part contents for background part 6
----- text -----

The answer that best describes the quality of true color and grayscale graphics is:

convolution-quality

black and white picture quality

photo-quality

interlace-quality

-- part contents for background part 10
----- text -----
Multiple Choice Question #8    ( final question )

-- part contents for card part 1
----- text -----
3

-- part contents for card part 8
----- text -----
Click the mouse to continue.

-- part contents for card part 10
----- text -----

That's not right.  This is a powerful capability of the 24-bit mode on the 8•24 card.  You should know it.

-- part contents for card part 9
----- text -----

Right!  This holds true for true color on the RGB monitor and grayscale on the High-Resolution Monochrome Monitor.

-- part contents for card part 12
----- text -----
Click the mouse to continue.

-- part contents for background part 23
----- text -----
card "qa 8"

-- part contents for card part 2
----- text -----
1